home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / qbsub10.arc / SOUND.SUB < prev    next >
Encoding:
Text File  |  1986-06-24  |  1.6 KB  |  59 lines
  1. ' SOUND.SUB -- MSDOS QuickBASIC sound generation subroutines    25 June 86
  2. '        by David L. Poskie     (608) 274-9560
  3. '                  7118 Raymond Rd. Madison, WI 53719
  4. ' Please run any suggestions, corrections, additions, or changes by me.
  5. ' I can be messaged on all the major Madison, WI RBBS's.
  6.  
  7. '| SOUND.SUB special purpose sound generation subroutines.
  8. '|  Subroutines: SFXDud -- a mile error sound
  9. '|         SFXBleep -- a more strident error sound
  10. '|         SFXZit -- a small input prompting sound.
  11. '|         SFXZot -- a small output signaling sound.
  12. '|               SFXBird -- a warbling sound
  13.  
  14.     ' Relatively mild signal for an error repeated Num times
  15. SFXDud:
  16.     IF Num = 0 THEN Num = 1
  17.     FOR X = 1 TO Num
  18.        SOUND 99 , X^2 / 4 
  19.        FOR Y = 1 TO 99
  20.            NEXT Y    
  21.     NEXT X
  22. RETURN
  23.  
  24.     ' A more strident error sound -- can be repeated Num times w/Dly delay
  25. SFXBLEEP:
  26.     IF Num = 0 THEN Num = 1
  27.     FOR X = 1 TO Num
  28.     PLAY "mbmso3l64t188c#p8c#p32c#p64eabcdeff#p8"
  29.     FOR Y = 1 TO 9999 / (X * 5)
  30.     NEXT Y
  31.     NEXT X
  32. RETURN
  33.  
  34.     'Sound Zee InpuT -- provide just a small input prompting sound
  35. SFXZit: 
  36.     IF Num = 0 THEN Num = 1
  37.     FOR X = 1 TO Num
  38.     SOUND 999 , .05
  39.     NEXT X
  40. RETURN
  41.  
  42.     'Sound Zee OutpuT -- provide just a small output signaling sound
  43. SFXZot:
  44.     IF Num = 0 THEN Num = 1
  45.     FOR X = 1 TO Num
  46.     SOUND 99 , .1
  47.     NEXT X
  48. RETURN
  49.  
  50.    ' A warble
  51. SFXBird:
  52.     FOR X  =  1 TO Num
  53.         PLAY "MBMNT222L64O5C#G#G#G#G#G#G#"
  54.         FOR Y = 0 TO 799 - X * 21 : NEXT Y
  55.         PLAY "<CDEFGABAGFEDC"
  56.     NEXT X
  57. RETURN
  58. ' >>>>> Physical EOF SOUND.SUB  25 June 86
  59.